﻿Public Class HT_FormDangNhap 

    'Private Sub HT_FormDangNhap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    'TODO: This line of code loads data into the 'PCV_FISHDataSet.TaiKhoanHeThong' table. You can move, or remove it, as needed.
    '    Me.TaiKhoanHeThongTableAdapter.Fill(Me.PCV_FISHDataSet.TaiKhoanHeThong)

    'End Sub

    Private Sub ButtonDangNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDangNhap.Click
        Dim username As String
        Dim password As String
        username = TextEditUsername.EditValue
        password = TextEditPassword.EditValue
        Try
            If CInt(Me.TaiKhoanHeThongTableAdapter.checkMaTaiKhoanHeThong(username)) > 0 Then
                If CInt(Me.TaiKhoanHeThongTableAdapter.checkMatkhauTaiKhoanHeThong(password)) > 0 Then
                    DevExpress.XtraEditors.XtraMessageBox.Show("Bạn đã đăng nhập thành công", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Else
                    DevExpress.XtraEditors.XtraMessageBox.Show("Bạn đã nhập sai Mật khẩu!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
                End If
            Else
                DevExpress.XtraEditors.XtraMessageBox.Show("Bạn đã nhập sai Mã tài khoản!", "Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

End Class